$_ = 'I saw a saw saw a saw.
        Two to two to two two.
        Long long ago there lived a king.';

$tf{lc $_} ++ foreach /\w+/g;

print "$_ : $tf{$_}\n" foreach sort {$tf{$b}<=>$tf{$a} }keys %tf;
